#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-17 9:17
# description: 测试while循环语名

$count = 0;
$num = 0;
while ($num < 100) {
    $count += $num;
    $num += 2;
}
print "\$count的计算结果为：$count\n"

